home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / mathisfn.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  12KB  |  459 lines
  1. 40 REM MATH-IS-FUN  SHAREWARE              COPYRIGHT 1986  BY O FRANK SMITH
  2. 50 GOTO 160
  3. 60 GD=0:LY=LEN(R2$):REM EDIT NUMBER
  4. 70 IF R2$=""THEN 150
  5. 80 FORCC=1TOLY
  6. 90 IF MID$(R2$,CC,1)>"9"THENGD=1:GOTO 140
  7. 100 IFCC<>1THEN 130
  8. 110 IF MID$(R2$,CC,1)="-"THEN 140
  9. 120 IF MID$(R2$,CC,1)="+"THEN 140
  10. 130 IF MID$(R2$,CC,1)<"0"THENGD=1
  11. 140 NEXT
  12. 150 RETURN
  13. 160 TZ=2:TX=TZ-1 :BB=0:BT=1:BM=12:FB=0:FT=1:POKE53280,0:POKE53281,0:PRINT"":
  14. 170 DS$(1)="[209]":DS$(2)="[218]":DS$(3)="[211]":DS$(4)="[216]":DS$(5)="[193]":DS$(6)="[166]"
  15. 180 SO=1:REM SOUND ON = 0 FOR NO SOUND     =2 FOR SOUND ONLY FOR BAD ANSWERS
  16. 190 DW$=""
  17. 200 TT$=  "[147]         [159]MATH-IS-FUN"
  18. 210 TT$=TT$+"[158]PRACTICE FOR SUCCESS"
  19. 220 GOSUB 2050
  20. 230 TU$=  "[147]         [159]MATH-IS-FUN"
  21. 240 TU$=TU$+"[158]@ 1986 O.FRANK SMITH"
  22. 250 SF=1:GOTO 520:REM SF=SCORE FACTOR
  23. 260 IF BB<>0THEN 440
  24. 270 F1=INT(RND(.)*C1)+1:IFC1>9ANDF1<10THEN 270
  25. 280 IFC1>99ANDF1<100THEN 270
  26. 290 F2=INT(RND(1)*C1)+1:IFC1>9ANDF2<10THEN 290
  27. 300 IFC1>99ANDF2<100THEN 290
  28. 310 F3=INT(RND(1)*C1)+1:IFC1>9ANDF3<10THEN 310
  29. 320 IFC1>99ANDF3<100THEN 310
  30. 330 F4=INT(RND(1)*C1)+1:IFC1>9ANDF4<10THEN 330
  31. 340 IFC1>99ANDF4<100THEN 330
  32. 350 F5=INT(RND(1)*C2)+1:IFC2>9ANDF5<10THEN 350
  33. 360 IFC2>99ANDF5<100THEN 350
  34. 370 F6=INT(RND(1)*C2)+1:IFC2>9ANDF6<10THEN 370
  35. 380 IFC2>99ANDF6<100THEN 370
  36. 390 F7=INT(RND(1)*C2)+1:IFC2>9ANDF7<10THEN 390
  37. 400 IFC2>99ANDF7<100THEN 390
  38. 410 F8=INT(RND(1)*C2)+1:IFC2>9ANDF8<10THEN 410
  39. 420 IFC2>99ANDF8<100THEN 410
  40. 430 GOTO 480
  41. 440 IF FB>BMTHENFB=BB:FT=FT+1
  42. 450 IF FT>BMTHENFT=BT:FB=BB
  43. 460 F1=FT:F2=FT:F3=FT:F4=FT:REM TOP NUMBERS
  44. 470 F5=FB:F6=FB+1:F7=FB+2:F8=FB+3:FB=FB+4
  45. 480 T1=TA:T2=TB:T3=TC:T4=TD:T5=TA:T6=TB:T7=TC:T8=TD
  46. 490 IF SN$="/"THENGOSUB 1900
  47. 500 GOSUB 2510
  48. 510 RETURN
  49. 520 X1=5:Y1=1 :C1=999:C2=999:L$="[183][183][183][183][183]"
  50. 530 GOSUB 1070
  51. 540 TA=4:TB=12:TC=22:TD=32:REM TAB SETTINGS
  52. 550 T1=4:T2=12:T3=22:T4=32:REM TAB SETTINGS
  53. 560 T5=4:T6=12:T7=22:T8=32:REM TAB SETTINGS
  54. 570 IF TI$>TL$THENGOSUB 2360
  55. 580 GOSUB 260
  56. 590 PRINT"[145]";:IF SN$="+"THENPRINT"    ADDITION"
  57. 600 IF SN$="-"THENPRINT"  SUBTRACTION"
  58. 610 IF SN$="X"THENPRINT" [153]MULTIPLICATION"
  59. 620 IF SN$="/"THENPRINT"    [150]DIVISION"
  60. 630 PRINTTAB(T1-1);"( 1 )";TAB(T2-1);"( 2 )";TAB(T3-1);"( 3 )" ;TAB(T4-1);"( 4 )
  61. 640 [153] [163]T1);F1;[163]T2);F2;[163]T3);F3;[163]T4);F4
  62. 650 [153] [163]T5);F5;[163]T6);F6;[163]T7);F7;[163]T8);F8
  63. 660 [153] [163]T1[171]1);L$;[163]T2[171]1);L$;[163]T3[171]1);L$;[163]T4[171]1);L$
  64. 670 [153]"ONON  ";SN$
  65. 680 R1[178]5:R2[178]5:R3[178]5:R4[178]5:DS[178][181]([187](1)[172]6)[170]1:DT$[178]DS$(DS)
  66. 690 DS[178][181]([187](1)[172]65)[170]1:DS[178]DS[170]65:DT$[178][199](DS)
  67. 700 [153]"";:[129]DS[178]1[164]39:[153]DT$;:[130]
  68. 710 [153]:[129]DS[178]1[164]23:[139]DS[178]20[167]:[153]" ":[137] 730
  69. 720 [153]DT$[170]""[170]DT$
  70. 730 [130]
  71. 740 [129]DS[178]1[164]39:[153]DT$;:[130]
  72. 750 [153]DW$;
  73. 760 [151]53280,4
  74. 770 [133]"ON";R2$
  75. 780 [141] 60:[139]GD[178]1[167] 750
  76. 790 R1[178][197](R2$)
  77. 800 [153]DW$;
  78. 810 [151]53280,5
  79. 820 [133]"ON  ";R2$
  80. 830 [141] 60:[139]GD[178]1[167] 790
  81. 840 R2[178][197](R2$)
  82. 850 [153]DW$;
  83. 860 [151]53280,6
  84. 870 [133]"ON  ";R2$
  85. 880 [141] 60:[139]GD[178]1[167] 850
  86. 890 R3[178][197](R2$)
  87. 900 [153]DW$;
  88. 910 [151]53280,8
  89. 920 [133]"ON  ";R2$
  90. 930 [141] 60:[139]GD[178]1[167] 900
  91. 940 R4[178][197](R2$)
  92. 950 [151]53280,0
  93. 960 [139] R1[178]9999[167] 160
  94. 970 [141] 1490
  95. 980 [129] TT[178]1[164]300:[130]
  96. 990 TM$[178]"TIME="[170][200](TI$,2)[170]" HRS. "
  97. 1000 TM$[178]TM$[170][202](TI$,3,2)[170]" MIN. "[170] [201](TI$,2)[170]" SEC. "[170]""
  98. 1010 [139]TX[178]TZ[167][153]TU$:
  99. 1020 [139]TX[179][177] TZ[167][153]TT$:
  100. 1030 TX[178]TX[170]1:[153] TM$
  101. 1040 [153]"SCORE=";SC;" #CORRECT=";S2;"OUT OF";CT::[153]""
  102. 1050 [139] TX[177]TZ[167]TX[178]0
  103. 1060 [137] 570
  104. 1070 [153]TT$
  105. 1080 [153]"TO BEGIN AGAIN TYPE 9999 AS 1ST ANSWER"
  106. 1090 C1[178]9:C2[178]9:SN$[178]"+":
  107. 1100 [153]"0=COMPUTER #S,1-999=# TO BEGIN TEACHING:"
  108. 1110 R2$[178]"0":BB[178]0
  109. 1120 [133]"0 OR 1-999:";R2$
  110. 1130 [141] 60:[139]GD[178]1[167][153]"ONONON":[137] 1120
  111. 1140 BB[178][197](R2$)
  112. 1150 BM[178]BB[170]10
  113. 1160 [139] BB[179][177]0[167]FB[178]BB:[137] 1370
  114. 1170 R2$[178]"9":C1[178]9
  115. 1180 [133]"FACTOR 1 SIZE:  9 99 OR 999:";R2$
  116. 1190 [141] 60:[139]GD[178]1[167][153]"ONONONON":[137] 1180
  117. 1200 C1[178][197](R2$)
  118. 1210 [139]C1[178]9[167] 1250
  119. 1220 [139]C1[178]99[167] 1250
  120. 1230 [139]C1[178]999[167] 1250
  121. 1240 C1[178]9
  122. 1250 [139]C1[178]99[167]SF[178]SF[170]2:
  123. 1260 [139]C1[178]999[167]SF[178]SF[170]4:
  124. 1270 R2$[178]"9":C2[178]9
  125. 1280 [133]"FACTOR 2 SIZE:  9 99 OR 999:";R2$
  126. 1290 [141] 60:[139]GD[178]1[167][153]"ONONON":[137] 1280
  127. 1300 C2[178][197](R2$)
  128. 1310 [139]C2[178]9[167] 1350
  129. 1320 [139]C2[178]99[167] 1350
  130. 1330 [139]C2[178]999[167] 1350
  131. 1340 C2[178]9
  132. 1350 [139]C2[178]99[167]SF[178]SF[170]2:
  133. 1360 [139]C2[178]999[167]SF[178]SF[170]4:
  134. 1370 [133] "EXERCISE :      + - X OR / :";SN$
  135. 1380 [139]SN$[178]"-" [167]SF[178]SF[170]2:
  136. 1390 [139]SN$[178]"X" [167]SF[178]SF[170]4:
  137. 1400 [139]SN$[178]"/" [167]SF[178]SF[170]5:
  138. 1410 [139] SN$[178]"+"[176] SN$[178]"-" [176] SN$[178]"X" [176] SN$[178]"/"[167] 1430
  139. 1420 [153]"ON";:[137] 1370
  140. 1430 TI$[178]"000000":
  141. 1440 TM$[178]"TIME="[170][200](TI$,2)[170]" HRS. "
  142. 1450 TM$[178]TM$[170][202](TI$,3,2)[170]" MIN. "[170] [201](TI$,2)[170]" SEC. "[170]""
  143. 1460 [153]TT$:[153] TM$
  144. 1470 [153]"SCORE=";SC;" #CORRECT=";S2;  "OUT OF";CT::[153]""
  145. 1480 [142]
  146. 1490 NS[178]S2[170]4:[143] NEW SCORE IF ALL CORRECT
  147. 1500 [139] SN$ [178]"+"[167] 1540
  148. 1510 [139] SN$[178]"-"[167] 1590
  149. 1520 [139] SN$[178]"X"[167] 1640
  150. 1530 [139] SN$[178]"/"[167] 1690
  151. 1540 A1[178]F5[170]F1
  152. 1550 A2[178]F6[170]F2
  153. 1560 A3[178]F7[170]F3
  154. 1570 A4[178]F8[170]F4
  155. 1580 [137] 1770
  156. 1590 A1[178]F1[171]F5
  157. 1600 A2[178]F2[171]F6
  158. 1610 A3[178]F3[171]F7
  159. 1620 A4[178]F4[171]F8
  160. 1630 [137] 1770
  161. 1640 A1[178]F1[172]F5
  162. 1650 A2[178]F2[172]F6
  163. 1660 A3[178]F3[172]F7
  164. 1670 A4[178]F4[172]F8
  165. 1680 [137] 1770
  166. 1690 [139] F5[178]0[167] 1710
  167. 1700 A1[178]F1[173]F5
  168. 1710 [139] F6[178]0[167] 1730
  169. 1720 A2[178]F2[173]F6
  170. 1730 [139] F7[178]0[167] 1750
  171. 1740 A3[178]F3[173]F7
  172. 1750 [139] F8[178]0[167] 1770
  173. 1760 A4[178]F4[173]F8
  174. 1770 CT[178]CT[170]4
  175. 1780 [139] R1[178]A1[167]SC[178]SC[170]SF:S2[178]S2[170]1
  176. 1790 [139] R3[178]A3[167]SC[178]SC[170]SF:S2[178]S2[170]1
  177. 1800 [139] R3[178]A3[167]SC[178]SC[170]SF:S2[178]S2[170]1
  178. 1810 [139] R4[178]A4[167]SC[178]SC[170]SF:S2[178]S2[170]1
  179. 1820 [139] SO[178]1 [175] NS[178]S2[167][141] 2690:[137] 1830
  180. 1830 [139] NS[178]S2[167][142]
  181. 1840 [153][163]T1[171]2);A1;[163]T2[171]2);A2;[163]T3[171]2);A3;[163]T4[171]2);A4
  182. 1850 [139] SO[179][177]0 [167][141] 2690
  183. 1860 [153]"CLRHIT ANY KEY";"
  184. 1870 GETA$:IFA$=""THEN 1870
  185. 1880 RETURN
  186. 1890 (3 DIGITS)   = ANOTHER 3 POINTS
  187. 1900 MT=INT(RND(.)*10)+1
  188. 1910 IFBB<>0THENMT=FT
  189. 1920 F1=F5*MT
  190. 1930 MT=INT(RND(.)*10)+1
  191. 1940 IFBB<>0THENMT=FT
  192. 1950 F2=F6*MT
  193. 1960 IFBB<>0THENMT=FT
  194. 1970 MT=INT(RND(.)*10)+1
  195. 1980 IFBB<>0THENMT=FT
  196. 1990 F3=F7*MT
  197. 2000 IFBB<>0THENMT=FT
  198. 2010 MT=INT(RND(.)*10)+1
  199. 2020 IFBB<>0THENMT=FT
  200. 2030 F4=F8*MT
  201. 2040 RETURN
  202. 2050 PRINTTT$:
  203. 2060 PRINT"2+6=8   2-6=-4  6-2=4  2X6=12 6/2=3"
  204. 2070 PRINT"  SCORING IS AS FOLLOWS:"
  205. 2080 PRINT"       [154]NORMAL SCORING IS 1 POINT"
  206. 2090 PRINT"        FOR EACH CORRECT ANSWER"
  207. 2100 PRINT"[155]  99  (2 DIGITS) = ANOTHER 2 POINTS"
  208. 2110 PRINT"  999 (3 DIGITS) = ANOTHER 3 POINTS"
  209. 2120 PRINT"  SUBTRACTION    = ANOTHER 3 POINTS"
  210. 2130 PRINT"  MULTIPLICATION = ANOTHER 4 POINTS"
  211. 2140 PRINT"  DIVISION       = ANOTHER 5 POINTS""
  212. 2150 [153] "HIT ANY KEY"
  213. 2160 [161]A$:[139]A$[178]""[167] 2160
  214. 2170 TI$[178]"000000"
  215. 2180 [153] TT$
  216. 2190 [153]"0. NO SOUND EFFECTS"
  217. 2200 [153]"1. ALWAYS SOUND EFFECTS"
  218. 2210 [153]"2. SOUND EFFECTS FOR WRONG ANSWER ONLY"
  219. 2220 R2$[178]"2":SO[178]2
  220. 2230 [133] "";R2$
  221. 2240 [141] 60:[139]GD[178]1[167][153]"ONONONON":[137] 2220
  222. 2250 SO[178][197](R2$):
  223. 2260 [139] SO [179] 0 [176] SO [177] 2 [167]SO[178]2
  224. 2270 [153] TT$
  225. 2280 [153]"HOW LONG DO YOU WANT TO PRACTICE?"
  226. 2290 [153]" ENTER HHMMSS FOR HOURS MIN. SEC."
  227. 2300 [133] ": 000500CMDCMDCMDCMDCMDCMDCMDCMD";R2$
  228. 2310 [141] 60:[139]GD[178]1[167][153]"ONONONON":[137] 2300
  229. 2320 [139] LY[179][177]6[167][153]"ONONONON":[137] 2300
  230. 2330 TL$[178]R2$
  231. 2340 [153] TL$
  232. 2350 [142]
  233. 2360 [153]TT$
  234. 2370 [153]"YOUR SCHEDULED PRACTICE TIME"
  235. 2380 [153]"        IS OVER"
  236. 2390 [153]"          ";TL$
  237. 2400 [153]"SCORE=";SC;" #CORRECT=";S2;"OUT OF";CT::[153]""
  238. 2410 [141] 2690
  239. 2420 [153]"CLRHIT ANY KEY";"
  240. 2430 GETA$
  241. 2440 CO=INT(RND(1)*16)+1
  242. 2450 POKE53280,CO
  243. 2460 FOR A1=1TO300:NEXT
  244. 2470 IFA$=""THEN 2430
  245. 2480 TI$="000000"
  246. 2490 PRINTTT$
  247. 2500 RETURN
  248. 2510 IFF1<10THENT1=TA+2:
  249. 2520 IFF2<10THENT2=TB+2:
  250. 2530 IFF3<10THENT3=TC+2:
  251. 2540 IFF4<10THENT4=TD+2:
  252. 2550 IFF5<10THENT5=TA+2:
  253. 2560 IFF6<10THENT6=TB+2:
  254. 2570 IFF7<10THENT7=TC+2:
  255. 2580 IFF8<10THENT8=TD+2:
  256. 2590 IFF1<100ANDF1>9   THENT1=TA+1:
  257. 2600 IFF2<100ANDF2>9   THENT2=TB+1:
  258. 2610 IFF3<100ANDF3>9   THENT3=TC+1:
  259. 2620 IFF4<100ANDF4>9   THENT4=TD+1:
  260. 2630 IFF5<100ANDF5>9   THENT5=TA+1:
  261. 2640 IFF6<100ANDF6>9   THENT6=TB+1:
  262. 2650 IFF7<100ANDF7>9   THENT7=TC+1:
  263. 2660 IFF8<100ANDF8>9   THENT8=TD+1:
  264. 2670 RETURN
  265. 2680 REM SHAREWARE COPYRIGHT 1986         BY O FRANK SMITH-SCHAUMBURG IL
  266. 2690 REM SOUND21
  267. 2700 REM
  268. 2710 OP=INT(RND(1)*21)+1
  269. 2720 PRINT"";OP:PRINT""
  270. 2730 REM FOR SOUNDS :GOSUB1200
  271. 2740 GOTO 3380
  272. 2750 REM
  273. 2760 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
  274. 2770 POKE54277,8:POKE54278,255:POKE54276,23
  275. 2780 FORZ=1TO3:F1=2:REM NO. OF CYCLES
  276. 2790 FORY=1TO3:F2=8:REM RATIO OF LENGTHS
  277. 2800 POKE54273,F1:REM MAIN FREQUENCY
  278. 2810 FORX=1TO5:POKE54287,F2:REM PITCH
  279. 2820 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY:REM PITCH
  280. 2830 FORW=1TO10:POKE54287,F2:REM W IS TOP PITCH
  281. 2840 F2=F2*1.05:NEXTW:NEXTZ:POKE54278,15
  282. 2850 REM       LIST
  283. 2860 GOTO 3370
  284. 2870 REM
  285. 2880 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:REM CLEAR SOUND CHIP, SET VOLUME
  286. 2890 POKE54277,8:POKE54278,255:POKE54276,21:REM ENVELOPE AND WAVEFORM
  287. 2900 POKE54287,40:REM VOICE 3 FREQ. CONTROLS MAIN PITCH
  288. 2910 FORZ=1TO4:REM Z IS NO. OF CYCLES
  289. 2920 FORF1=255TO0STEP-6:POKE54273,F1:NEXTF1:REM STEP SIZE CONTROLS DOWN SPEED
  290. 2930 FORF1=0TO255STEP20:POKE54273,F1:NEXTF1:NEXTZ:REM STEP SIZE CONTROLS UP SPEED
  291. 2940 POKE54278,15:REM STOPS SOUND
  292. 2950 REM       LIST
  293. 2960 GOTO 3370
  294. 2970 REM
  295. 2980 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
  296. 2990 POKE54277,8:POKE54278,255:POKE54276,23
  297. 3000 FORZ=1TO3:F1=10:FORY=1TO6:F2=30
  298. 3010 POKE54273,F1
  299. 3020 FORX=1TO3:POKE54287,F2:REM RANGE
  300. 3030 F2=F2/1.2:NEXTX:F1=F1*1.5:NEXTY
  301. 3040 FORW=1TO8:REM LENGTH OF UP TO DOWN TIME
  302. 3050 POKE54273,F1
  303. 3060 POKE54287,5:FORV=1TO5:NEXTV
  304. 3070 F1=F1/1.5:NEXTW:NEXTZ:POKE54278,15
  305. 3080 REM LIST
  306. 3090 GOTO 3370
  307. 3100 REM
  308. 3110 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
  309. 3120 POKE54277,8:POKE54278,255:POKE54276,21
  310. 3130 FORZ=1TO4:F1=20:REM NO. OF CYCLES
  311. 3140 FORY=1TO3:F2=100:REM NO. OF INCREMENTS
  312. 3150 POKE54273,F1:REM VOICE ONE FREQUENCY
  313. 3160 FORX=1TO5:POKE54287,F2:REM SPEED
  314. 3170 F1=F1*1.05:F2=F2*.1
  315. 3180 NEXTX:NEXTY:NEXTZ:POKE54278,15
  316. 3190 REM      LIST
  317. 3200 GOTO 3370
  318. 3210 REM
  319. 3220 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
  320. 3230 POKE54277,8:POKE54278,255:POKE54276,21:F2=255
  321. 3240 FORZ=1TO50:POKE54287,F2:REM NO. OF CYCLES
  322. 3250 FORF1=255TO0STEP-20:POKE54273,F1:F2=F2-.4:NEXTF1:NEXTZ:POKE54278,15
  323. 3260 REM    LIST
  324. 3270 GOTO 3370
  325. 3280 REM
  326. 3290 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:REM CLEAR SOUND CHIP, SET VOLUME
  327. 3300 POKE54277,8:POKE54278,255:POKE54276,23:REM ENVELOPE AND WAVEFORM
  328. 3310 POKE54287,40:REM VOICE 3 FREQ. CONTROLS MAIN PITCH
  329. 3320 FORZ=1TO4:REM Z IS NO. OF CYCLES
  330. 3330 FORF1=255TO0STEP-6:POKE54273,F1:NEXTF1:REM STEP SIZE CONTROLS DOWN SPEED
  331. 3340 FORF1=0TO255STEP20:POKE54273,F1:NEXTF1:NEXTZ:REM STEP SIZE CONTROLS UP SPEED
  332. 3350 POKE54278,15:REM STOPS SOUND
  333. 3360 REM    LIST
  334. 3370 RETURN
  335. 3380 SI=54272:W1=SI+4:W3=SI+18:V=SI+24:PW=SI+27:PE=SI+28
  336. 3390 FORI=SITOPE:POKEI,0:NEXT
  337. 3400 POKEW1+1,17:POKEW1+2,251:POKEW3+1,187:POKEW3+2,140
  338. 3410 POKEV,143:POKEW3,17
  339. 3420 REM POKE214,22:PRINT:POKE211,9 :REM INPUT" TYPE 1-15:";OP
  340. 3430 IFOP=1THENGOSUB 3680
  341. 3440 IFOP=2THENGOSUB 3720
  342. 3450 IFOP=3THENGOSUB 3790
  343. 3460 IFOP=4THENGOSUB 3850
  344. 3470 IFOP=5THENGOSUB 3910
  345. 3480 IFOP=6THENGOSUB 3970
  346. 3490 IFOP=7THENGOSUB 4020
  347. 3500 IFOP=8THENGOSUB 4080
  348. 3510 IFOP=9THENGOSUB 4130
  349. 3520 IFOP=10THENGOSUB 4170
  350. 3530 IFOP=11THENGOSUB 4240
  351. 3540 IFOP=12THENGOSUB 4310
  352. 3550 IFOP=13THENGOSUB 4380
  353. 3560 IFOP=14THENGOSUB 4450
  354. 3570 IFOP=15THENGOSUB 4510
  355. 3580 IFOP=16THENGOSUB 2750
  356. 3590 IFOP=17THENGOSUB 2870
  357. 3600 IFOP=18THENGOSUB 2970
  358. 3610 IFOP=19THENGOSUB 3100
  359. 3620 IFOP=20THENGOSUB 3210
  360. 3630 IFOP=21THENGOSUB 3280
  361. 3640 POKEV,0:POKEW1,0:POKEW3,0
  362. 3650 FORI=SITOPE:POKEI,0:NEXT
  363. 3660 RETURN
  364. 3670 REM #1 SWEEP
  365. 3680 POKEW1,17
  366. 3690 FORI=30TO200STEP3:POKESI+1,I:NEXT
  367. 3700 RETURN
  368. 3710 REM #2 WHISTLE
  369. 3720 POKEW1,17
  370. 3730 FORI=30TO200STEP3:POKESI+1,I:NEXT
  371. 3740 POKEW1,0:FORI=1TO150:NEXT:POKEW1,17
  372. 3750 FORI=30TO120STEP3:POKESI+1,I:NEXT
  373. 3760 FORI=120TO20STEP-1.5:POKESI+1,I:NEXT
  374. 3770 RETURN
  375. 3780 REM #3 ROCKET
  376. 3790 POKEW1+2,253:POKEW1,129
  377. 3800 FORI=0TO90:POKESI,0:POKESI+1,I
  378. 3810 FORJ=1TO254-ISTEPI/2OR1:POKESI,J:NEXTJ,I
  379. 3820 POKEW1,128:FORI=1TO5000:NEXT
  380. 3830 RETURN
  381. 3840 REM #4 RING MODULATION -GONG
  382. 3850 POKEW1+2,122
  383. 3860 POKEW1-3,30:POKEW3-3,23
  384. 3870 FORI=1TO8:POKEW1,21
  385. 3880 FORJ=1TO200:NEXT:POKEW1,20
  386. 3890 FORJ=1TO1500:NEXT:NEXT:RETURN
  387. 3900 REM #5 RING MODULATION - CHIME
  388. 3910 POKEW1+2,122
  389. 3920 POKEW1-3,50:POKEW3-3,56
  390. 3930 FORI=1TO6:POKEW1,21
  391. 3940 FORJ=1TO200:NEXT:POKEW1,20
  392. 3950 FORJ=1TO1000:NEXT:NEXT:RETURN
  393. 3960 REM #6 SYNCHRONIZATION
  394. 3970 POKEW1-3,31:POKEW1,19
  395. 3980 FORI=1TO8:POKEW3-3,4+I
  396. 3990 FORJ=1TO300:NEXT:NEXT
  397. 4000 RETURN
  398. 4010 REM #7 SYNCHRONIZATION + WAVER
  399. 4020 POKEW1-3,31:POKEW1,19
  400. 4030 FORI=1TO15
  401. 4040 FORJ=0TO10:POKEW3-3,20+ABS(J-5):NEXT
  402. 4050 NEXT
  403. 4060 RETURN
  404. 4070 REM #8  RING MOD AND SWEEP
  405. 4080 POKEW1-3,31:POKEW1,21
  406. 4090 FORI=1TO175STEP.1
  407. 4100 POKEW3-3,I:NEXT
  408. 4110 RETURN
  409. 4120 REM #9 BEATING
  410. 4130 POKEW1-3,13:POKEW3-3,12:POKEW3-4,225:POKEW1,21
  411. 4140 FORI=1TO3000:NEXT:POKEW1,20
  412. 4150 FORI=1TO1500:NEXT:RETURN
  413. 4160 REM #10 ENVELOPE GENERATOR
  414. 4170 POKEW1+1,187:POKEW1+2,140:POKEW1,33
  415. 4180 POKEW3,0:POKEW3,33
  416. 4190 FORI=1TO150:POKEW1-3,PEEK(PE)/3+10:NEXT
  417. 4200 POKEW1,32:POKEW3,32
  418. 4210 FORI=1TO300:POKEW1-3,PEEK(PE)/3+10:NEXT
  419. 4220 RETURN
  420. 4230 REM #11 SIREN #1
  421. 4240 POKEW1+1,224:POKEW1+2,253
  422. 4250 POKEW3-4,15:POKEW1,33
  423. 4260 POKEW3,17
  424. 4270 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT:POKEW1,32
  425. 4280 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT
  426. 4290 RETURN
  427. 4300 REM #12 SIREN #2
  428. 4310 POKEW1+1,224:POKEW1+2,253
  429. 4320 POKEW3-4,15:POKEW1,33
  430. 4330 POKEW3,33
  431. 4340 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT:POKEW1,32
  432. 4350 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT
  433. 4360 RETURN
  434. 4370 REM #13 SIREN #3
  435. 4380 POKEW1+1,224:POKEW1+2,253
  436. 4390 POKEW3-4,15:POKEW1,33
  437. 4400 POKEW3,65:POKEW3-1,8
  438. 4410 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT:POKEW1,32
  439. 4420 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT
  440. 4430 RETURN
  441. 4440 REM #14  BUBBLING
  442. 4450 POKEW3-3,15:POKEW1,17
  443. 4460 POKEW3,129
  444. 4470 FORI=1TO300:POKE54273,PEEK(54299)/7+3:NEXT
  445. 4480 RETURN
  446. 4490 REM
  447. 4500 REM #15 SATELLITE
  448. 4510 POKEW3-3,15:POKEW1,19
  449. 4520 POKEW3,129
  450. 4530 FORI=1TO300:POKE54273,PEEK(54299):NEXT
  451. 4540 RETURN
  452. 4550 CYP$=CHR$(67)+CHR$(79)+CHR$(80)+CHR$(89)+CHR$(82)+CHR$(73)+CHR$(71)
  453. 4560 CYP$=CYP$+CHR$(72)+CHR$(84)+CHR$(32)+CHR$(49)+CHR$(57)+CHR$(56)+CHR$(54)
  454. 4570 NM$=CHR$(79)+CHR$(46)+CHR$(70)+CHR$(82)+CHR$(65)+CHR$(78)+CHR$(75)+CHR$(32)
  455. 4580 NM$=NM$+CHR$(83)+CHR$(77)+CHR$(73)+CHR$(84)+CHR$(72)
  456. 4590 PRINT"[147]            ";CYP$
  457. 4600 PRINT"            ";NM$
  458. 4610 GOTO 4610
  459.